/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / INTERNET / ACORNET / ACORN-ST / ACRNET21 / !AcornetA_AppLib_freesmtp

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 3e 66 72 | 65 65 73 6d 74 70 0d 00 |.....>fr|eesmtp..|
|00000010| 14 04 0d 00 1e 14 dd 20 | a4 66 72 65 65 73 6d 74 |....... |.freesmt|
|00000020| 70 5f 69 6e 69 74 0d 00 | 28 06 3d 30 0d 00 32 04 |p_init..|(.=0..2.|
|00000030| 0d 00 33 29 dd 20 a4 66 | 72 65 65 73 6d 74 70 5f |..3). .f|reesmtp_|
|00000040| 6d 65 74 68 6f 64 28 6d | 65 74 68 6f 64 24 2c 61 |method(m|ethod$,a|
|00000050| 72 67 24 2c 6f 70 74 24 | 29 0d 00 3c 10 c8 8e 20 |rg$,opt$|)..<... |
|00000060| 6d 65 74 68 6f 64 24 20 | ca 0d 00 46 29 c9 20 22 |method$ |...F). "|
|00000070| 63 6f 6e 66 69 67 22 3a | 20 3d c3 20 a4 66 72 65 |config":| =. .fre|
|00000080| 65 73 6d 74 70 5f 63 6f | 6e 66 69 67 28 61 72 67 |esmtp_co|nfig(arg|
|00000090| 24 29 0d 00 50 10 c9 20 | 22 75 70 67 72 61 64 65 |$)..P.. |"upgrade|
|000000a0| 22 3a 0d 00 51 24 20 20 | f2 75 70 67 72 61 64 65 |":..Q$  |.upgrade|
|000000b0| 5f 70 72 65 63 69 6f 75 | 73 28 22 2e 61 72 65 61 |_preciou|s(".area|
|000000c0| 5f 6c 6f 67 22 29 0d 00 | 52 24 20 20 f2 75 70 67 |_log")..|R$  .upg|
|000000d0| 72 61 64 65 5f 70 72 65 | 63 69 6f 75 73 28 22 2e |rade_pre|cious(".|
|000000e0| 63 6c 6e 74 5f 6c 6f 67 | 22 29 0d 00 53 23 20 20 |clnt_log|")..S#  |
|000000f0| f2 75 70 67 72 61 64 65 | 5f 70 72 65 63 69 6f 75 |.upgrade|_preciou|
|00000100| 73 28 22 2e 6d 6f 6e 5f | 6c 6f 67 22 29 0d 00 54 |s(".mon_|log")..T|
|00000110| 24 20 20 f2 75 70 67 72 | 61 64 65 5f 70 72 65 63 |$  .upgr|ade_prec|
|00000120| 69 6f 75 73 28 22 2e 73 | 6d 74 70 5f 6c 6f 67 22 |ious(".s|mtp_log"|
|00000130| 29 0d 00 64 23 20 20 f2 | 75 70 67 72 61 64 65 5f |)..d#  .|upgrade_|
|00000140| 70 72 65 63 69 6f 75 73 | 28 22 2e 61 6c 69 61 73 |precious|(".alias|
|00000150| 65 73 22 29 0d 00 65 23 | 20 20 f2 75 70 67 72 61 |es")..e#|  .upgra|
|00000160| 64 65 5f 70 72 65 63 69 | 6f 75 73 28 22 2e 4d 61 |de_preci|ous(".Ma|
|00000170| 69 6c 44 69 72 22 29 0d | 00 66 25 20 20 f2 75 70 |ilDir").|.f%  .up|
|00000180| 67 72 61 64 65 5f 70 72 | 65 63 69 6f 75 73 28 22 |grade_pr|ecious("|
|00000190| 2e 73 6d 74 70 2d 63 6f | 6e 66 22 29 0d 00 78 21 |.smtp-co|nf")..x!|
|000001a0| 20 20 3d a4 75 70 67 72 | 61 64 65 5f 63 6f 70 79 |  =.upgr|ade_copy|
|000001b0| 5f 64 69 72 28 61 72 67 | 24 2c 22 22 29 0d 00 8c |_dir(arg|$,"")...|
|000001c0| 05 cb 0d 00 96 07 3d 22 | 22 0d 00 a0 04 0d 00 aa |......="|".......|
|000001d0| 1c dd 20 a4 66 72 65 65 | 73 6d 74 70 5f 63 6f 6e |.. .free|smtp_con|
|000001e0| 66 69 67 28 64 69 72 24 | 29 0d 00 b4 21 ea 20 6c |fig(dir$|)...!. l|
|000001f0| 69 6e 65 24 2c 66 25 2c | 66 77 25 2c 6d 78 24 2c |ine$,f%,|fw%,mx$,|
|00000200| 67 77 24 2c 6d 64 24 2c | 6c 64 0d 00 be 25 e7 20 |gw$,md$,|ld...%. |
|00000210| 6e 65 74 5f 6d 61 69 6c | 5f 70 72 6f 74 6f 63 6f |net_mail|_protoco|
|00000220| 6c 24 3c 3e 22 53 4d 54 | 50 22 20 8c 20 3d 31 0d |l$<>"SMT|P" . =1.|
|00000230| 00 c8 2c f2 61 63 6f 72 | 6e 65 74 5f 61 70 70 28 |..,.acor|net_app(|
|00000240| 22 6d 61 69 6c 22 2c 64 | 69 72 24 2c 22 53 4d 54 |"mail",d|ir$,"SMT|
|00000250| 50 20 4d 6f 6e 69 74 6f | 72 22 29 0d 00 d2 1b 63 |P Monito|r")....c|
|00000260| 6f 6e 66 24 3d 64 69 72 | 24 2b 22 2e 73 6d 74 70 |onf$=dir|$+".smtp|
|00000270| 2d 63 6f 6e 66 22 0d 00 | dc 1d e7 20 ac 20 a4 66 |-conf"..|... . .f|
|00000280| 69 6c 65 5f 65 78 69 73 | 74 73 28 63 6f 6e 66 24 |ile_exis|ts(conf$|
|00000290| 29 20 8c 0d 00 e6 2a 20 | 20 f2 66 69 6c 65 5f 63 |) ....* | .file_c|
|000002a0| 6f 70 79 28 64 69 72 24 | 2b 22 2e 64 65 66 61 75 |opy(dir$|+".defau|
|000002b0| 6c 74 63 6e 66 22 2c 63 | 6f 6e 66 24 29 0d 00 f0 |ltcnf",c|onf$)...|
|000002c0| 19 20 20 f2 75 70 64 61 | 74 65 5f 6f 70 65 6e 28 |.  .upda|te_open(|
|000002d0| 63 6f 6e 66 24 29 0d 00 | fa 1c 20 20 c8 95 20 a4 |conf$)..|..  .. .|
|000002e0| 75 70 64 61 74 65 5f 72 | 65 61 64 28 6c 69 6e 65 |update_r|ead(line|
|000002f0| 24 29 0d 01 04 6e 20 20 | 20 20 e7 20 c0 6c 69 6e |$)...n  |  . .lin|
|00000300| 65 24 2c 31 31 29 3d 22 | 23 20 68 6f 73 74 6e 61 |e$,11)="|# hostna|
|00000310| 6d 65 20 22 20 84 20 c0 | 6c 69 6e 65 24 2c 31 34 |me " . .|line$,14|
|00000320| 29 3d 22 23 20 6c 6f 63 | 61 6c 64 6f 6d 61 69 6e |)="# loc|aldomain|
|00000330| 20 22 20 84 20 c0 6c 69 | 6e 65 24 2c 31 32 29 3d | " . .li|ne$,12)=|
|00000340| 22 23 20 66 6f 72 77 61 | 72 64 65 72 20 22 20 8c |"# forwa|rder " .|
|00000350| 20 6c 69 6e 65 24 3d c1 | 6c 69 6e 65 24 2c 33 29 | line$=.|line$,3)|
|00000360| 0d 01 0e 1c 20 20 20 20 | f2 75 70 64 61 74 65 5f |....    |.update_|
|00000370| 77 72 69 74 65 28 6c 69 | 6e 65 24 29 0d 01 18 07 |write(li|ne$)....|
|00000380| 20 20 ce 0d 01 22 13 20 | 20 f2 75 70 64 61 74 65 |  ...". | .update|
|00000390| 5f 63 6c 6f 73 65 0d 01 | 2c 2a 20 20 69 25 3d a4 |_close..|,*  i%=.|
|000003a0| 64 6c 67 5f 70 6f 6c 6c | 3a 20 e7 20 69 25 3c 3e |dlg_poll|: . i%<>|
|000003b0| 64 6c 67 5f 4e 55 4c 4c | 20 8c 20 3d 69 25 3d 31 |dlg_NULL| . =i%=1|
|000003c0| 0d 01 36 05 cd 0d 01 40 | 17 f2 75 70 64 61 74 65 |..6....@|..update|
|000003d0| 5f 6f 70 65 6e 28 63 6f | 6e 66 24 29 0d 01 4a 21 |_open(co|nf$)..J!|
|000003e0| 66 77 25 3d 30 3a 20 6d | 78 24 3d 22 23 20 22 3a |fw%=0: m|x$="# ":|
|000003f0| 20 67 77 24 3d 22 22 3a | 20 6c 64 3d a3 0d 01 54 | gw$="":| ld=...T|
|00000400| 1a c8 95 20 a4 75 70 64 | 61 74 65 5f 72 65 61 64 |... .upd|ate_read|
|00000410| 28 6c 69 6e 65 24 29 0d | 01 5e 3f 20 20 f4 20 6c |(line$).|.^?  . l|
|00000420| 6f 6f 6b 20 66 6f 72 20 | 6f 6e 65 20 6f 72 20 6d |ook for |one or m|
|00000430| 6f 72 65 20 70 6f 73 73 | 69 62 6c 79 20 63 6f 6d |ore poss|ibly com|
|00000440| 6d 65 6e 74 65 64 20 66 | 6f 72 77 61 72 64 65 72 |mented f|orwarder|
|00000450| 20 6c 69 6e 65 73 0d 01 | 68 58 20 20 e7 20 c0 6c | lines..|hX  . .l|
|00000460| 69 6e 65 24 2c 31 30 29 | 3d 22 66 6f 72 77 61 72 |ine$,10)|="forwar|
|00000470| 64 65 72 20 22 20 84 20 | c0 6c 69 6e 65 24 2c 31 |der " . |.line$,1|
|00000480| 31 29 3d 22 23 66 6f 72 | 77 61 72 64 65 72 20 22 |1)="#for|warder "|
|00000490| 20 84 20 c0 6c 69 6e 65 | 24 2c 31 32 29 3d 22 23 | . .line|$,12)="#|
|000004a0| 20 66 6f 72 77 61 72 64 | 65 72 20 22 20 8c 0d 01 | forward|er " ...|
|000004b0| 72 19 20 20 20 20 e7 20 | a7 6c 69 6e 65 24 2c 22 |r.    . |.line$,"|
|000004c0| 20 4d 58 22 29 20 8c 0d | 01 7c 21 20 20 20 20 20 | MX") ..|.|!     |
|000004d0| 20 e7 20 c0 6c 69 6e 65 | 24 2c 31 29 3c 3e 22 23 | . .line|$,1)<>"#|
|000004e0| 22 20 6d 78 24 3d 22 22 | 0d 01 86 09 20 20 20 20 |" mx$=""|....    |
|000004f0| cc 0d 01 90 22 20 20 20 | 20 20 20 e7 20 c0 6c 69 |...."   |   . .li|
|00000500| 6e 65 24 2c 31 29 3d 22 | 23 22 20 67 77 24 3d 22 |ne$,1)="|#" gw$="|
|00000510| 23 20 22 0d 01 9a 09 20 | 20 20 20 cd 0d 01 a4 15 |# ".... |   .....|
|00000520| 20 20 20 20 e7 20 66 77 | 25 3d 30 20 66 77 25 3d |    . fw|%=0 fw%=|
|00000530| 31 0d 01 ae 07 20 20 cc | 0d 01 b8 11 20 20 20 20 |1....  .|....    |
|00000540| e7 20 66 77 25 3d 31 20 | 8c 0d 01 c2 3c 20 20 20 |. fw%=1 |....<   |
|00000550| 20 20 20 f4 20 75 73 65 | 20 67 61 74 65 77 61 79 |   . use| gateway|
|00000560| 2c 20 75 6e 6c 65 73 73 | 20 4d 58 20 73 65 74 20 |, unless| MX set |
|00000570| 61 6e 64 20 67 61 74 65 | 77 61 79 20 63 6f 6d 6d |and gate|way comm|
|00000580| 65 6e 74 65 64 0d 01 cc | 26 20 20 20 20 20 20 e7 |ented...|&      .|
|00000590| 20 67 77 24 3d 6d 78 24 | 20 8c 20 6d 78 24 3d 22 | gw$=mx$| . mx$="|
|000005a0| 23 20 22 3a 20 67 77 24 | 3d 22 22 0d 01 d6 69 20 |# ": gw$|=""...i |
|000005b0| 20 20 20 20 20 f2 75 70 | 64 61 74 65 5f 77 72 69 |     .up|date_wri|
|000005c0| 74 65 28 6d 78 24 2b 22 | 66 6f 72 77 61 72 64 65 |te(mx$+"|forwarde|
|000005d0| 72 20 2a 20 4d 58 22 29 | 3a 20 f2 75 70 64 61 74 |r * MX")|: .updat|
|000005e0| 65 5f 77 72 69 74 65 28 | 67 77 24 2b 22 66 6f 72 |e_write(|gw$+"for|
|000005f0| 77 61 72 64 65 72 20 2a | 20 22 2b 6e 65 74 5f 73 |warder *| "+net_s|
|00000600| 6d 74 70 5f 67 61 74 65 | 77 61 79 24 29 3a 20 66 |mtp_gate|way$): f|
|00000610| 77 25 3d 32 0d 01 e0 09 | 20 20 20 20 cd 0d 01 ea |w%=2....|    ....|
|00000620| 32 20 20 20 20 e7 20 c0 | 6c 69 6e 65 24 2c 31 31 |2    . .|line$,11|
|00000630| 29 3d 22 23 20 6b 69 6c | 6c 66 69 6c 65 20 22 20 |)="# kil|lfile " |
|00000640| 6c 69 6e 65 24 3d c1 6c | 69 6e 65 24 2c 33 29 0d |line$=.l|ine$,3).|
|00000650| 01 f4 41 20 20 20 20 e7 | 20 c0 6c 69 6e 65 24 2c |..A    .| .line$,|
|00000660| 38 29 3d 22 68 6f 73 74 | 6e 61 6d 65 22 20 6c 69 |8)="host|name" li|
|00000670| 6e 65 24 3d 22 68 6f 73 | 74 6e 61 6d 65 20 22 2b |ne$="hos|tname "+|
|00000680| 6e 65 74 5f 6d 61 69 6c | 5f 64 6f 6d 61 69 6e 24 |net_mail|_domain$|
|00000690| 0d 01 fe 42 20 20 20 20 | f4 20 6f 6e 6c 79 20 72 |...B    |. only r|
|000006a0| 65 77 72 69 74 65 20 66 | 69 72 73 74 20 64 6f 6d |ewrite f|irst dom|
|000006b0| 61 69 6e 20 69 6e 20 63 | 61 73 65 20 65 2e 67 2e |ain in c|ase e.g.|
|000006c0| 20 22 66 6f 6f 2e 63 6f | 2e 75 6b 22 20 61 64 64 | "foo.co|.uk" add|
|000006d0| 65 64 0d 02 08 56 20 20 | 20 20 e7 20 c0 6c 69 6e |ed...V  |  . .lin|
|000006e0| 65 24 2c 31 31 29 3d 22 | 6c 6f 63 61 6c 64 6f 6d |e$,11)="|localdom|
|000006f0| 61 69 6e 22 20 80 20 ac | 6c 64 20 8c 20 6c 69 6e |ain" . .|ld . lin|
|00000700| 65 24 3d 22 6c 6f 63 61 | 6c 64 6f 6d 61 69 6e 20 |e$="loca|ldomain |
|00000710| 22 2b 6e 65 74 5f 6d 61 | 69 6c 5f 64 6f 6d 61 69 |"+net_ma|il_domai|
|00000720| 6e 24 3a 20 6c 64 3d b9 | 0d 02 12 1c 20 20 20 20 |n$: ld=.|....    |
|00000730| f2 75 70 64 61 74 65 5f | 77 72 69 74 65 28 6c 69 |.update_|write(li|
|00000740| 6e 65 24 29 0d 02 1c 07 | 20 20 cd 0d 02 26 05 ce |ne$)....|  ...&..|
|00000750| 0d 02 30 11 f2 75 70 64 | 61 74 65 5f 63 6c 6f 73 |..0..upd|ate_clos|
|00000760| 65 0d 02 3a 34 f4 20 66 | 25 3d 46 4e 66 69 6c 65 |e..:4. f|%=FNfile|
|00000770| 5f 6f 70 65 6e 28 66 72 | 65 65 75 73 65 72 5f 64 |_open(fr|eeuser_d|
|00000780| 69 72 24 2b 22 2e 53 74 | 61 72 74 53 4d 54 50 22 |ir$+".St|artSMTP"|
|00000790| 2c 22 77 22 29 0d 02 44 | 19 f4 20 42 50 55 54 23 |,"w")..D|.. BPUT#|
|000007a0| 66 25 2c 22 52 75 6e 20 | 22 2b 64 69 72 24 0d 02 |f%,"Run |"+dir$..|
|000007b0| 4e 18 f4 20 50 52 4f 43 | 66 69 6c 65 5f 63 6c 6f |N.. PROC|file_clo|
|000007c0| 73 65 28 66 25 29 0d 02 | 58 39 f4 20 50 52 4f 43 |se(f%)..|X9. PROC|
|000007d0| 66 69 6c 65 5f 73 65 74 | 74 79 70 65 28 66 72 65 |file_set|type(fre|
|000007e0| 65 75 73 65 72 5f 64 69 | 72 24 2b 22 2e 53 74 61 |euser_di|r$+".Sta|
|000007f0| 72 74 53 4d 54 50 22 2c | 22 4f 62 65 79 22 29 0d |rtSMTP",|"Obey").|
|00000800| 02 62 28 69 25 3d a4 64 | 6c 67 5f 70 6f 6c 6c 3a |.b(i%=.d|lg_poll:|
|00000810| 20 e7 20 69 25 3c 3e 64 | 6c 67 5f 4e 55 4c 4c 20 | . i%<>d|lg_NULL |
|00000820| 8c 20 3d 69 25 3d 31 0d | 02 6c 1a f2 63 64 69 72 |. =i%=1.|.l..cdir|
|00000830| 28 64 69 72 24 2b 22 2e | 4d 61 69 6c 44 69 72 22 |(dir$+".|MailDir"|
|00000840| 29 0d 02 76 35 f2 6e 65 | 77 73 62 61 73 65 5f 63 |)..v5.ne|wsbase_c|
|00000850| 6d 64 28 22 74 72 61 6e | 73 70 6f 72 74 20 73 6f |md("tran|sport so|
|00000860| 75 72 63 65 20 6d 61 69 | 6c 20 69 6e 5f 73 6d 74 |urce mai|l in_smt|
|00000870| 70 64 20 31 22 29 0d 02 | 80 34 f2 6e 65 77 73 62 |pd 1")..|.4.newsb|
|00000880| 61 73 65 5f 63 6d 64 28 | 22 74 72 61 6e 73 70 6f |ase_cmd(|"transpo|
|00000890| 72 74 20 72 6f 75 74 65 | 20 6d 61 69 6c 20 69 6e |rt route| mail in|
|000008a0| 5f 73 6d 74 70 64 20 31 | 22 29 0d 02 8a 34 f2 6e |_smtpd 1|")...4.n|
|000008b0| 65 77 73 62 61 73 65 5f | 63 6d 64 28 22 74 72 61 |ewsbase_|cmd("tra|
|000008c0| 6e 73 70 6f 72 74 20 64 | 65 66 61 75 6c 74 20 6d |nsport d|efault m|
|000008d0| 61 69 6c 20 69 6e 5f 73 | 6d 74 70 64 22 29 0d 02 |ail in_s|mtpd")..|
|000008e0| 94 47 f2 6e 65 77 73 62 | 61 73 65 5f 63 6d 64 28 |.G.newsb|ase_cmd(|
|000008f0| 22 74 72 61 6e 73 70 6f | 72 74 20 67 61 74 65 77 |"transpo|rt gatew|
|00000900| 61 79 20 6d 61 69 6c 20 | 69 6e 5f 73 6d 74 70 64 |ay mail |in_smtpd|
|00000910| 20 22 2b 6e 65 74 5f 73 | 6d 74 70 5f 67 61 74 65 | "+net_s|mtp_gate|
|00000920| 77 61 79 24 29 0d 02 9e | 06 3d 31 0d ff          |way$)...|.=1..   |
+--------+-------------------------+-------------------------+--------+--------+